home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4182 / source / fileview.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  2KB  |  40 lines
  1. 1 REM 
  2. 10 KEY
  3. 100 BLOAD
  4. 1000 VARNAME
  5. 1010 FOR
  6. 1020 VARNAME
  7. 1030 VARNAME
  8. 1040 IF
  9. 1050 LOCATE
  10. 1060 INC
  11. 1070 NEXT
  12. 1080 PEN
  13. 110 VARNAME
  14. 12 PALETTE
  15. 120 CLW
  16. 130 HOME
  17. 140 FOR
  18. 15 VARNAME
  19. 150 FOR
  20. 160 GOSUB
  21. 170 REPEAT
  22. 180 IF
  23. 185 IF
  24. 190 IF
  25. 2 REM  File-viewer.  By Billy Allan.
  26. 20 VARNAME
  27. 200 IF
  28. 210 GOTO
  29. 3 REM 
  30. 30 RESERVE
  31. 40 CLW
  32. 50 PRINT
  33. 60 SHOW
  34. 70 IF
  35. 80 OPEN IN
  36. 90 IF
  37. 997 REM 
  38. 998 REM  Display 400 bytes <
  39. 999 REM 
  40.